home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm2.d64 / paint boot (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  786b  |  22 lines
  1. 10 PRINT"[147]":GOSUB70
  2. 20 POKE 53281,0:POKE 53280,0
  3. 30 PRINT"[144]":PRINT""
  4. 40 PRINT "LOAD";CHR$(34);F$;CHR$(34)",8"
  5. 50 PRINT"RUN"
  6. 60 POKE631,13:POKE632,13:POKE198,2:END
  7. 70 POKE53280,0:POKE53281,0:IFFTHENRETURN
  8. 80 POKE214,10:PRINT"[145]";
  9. 90 FORI=1TO13:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
  10. 100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  11. 110 POKE214,12:PRINT"[145]"TAB(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 120 FORI=1TO7:PRINTTAB(4)"[155]                                [151][223]":NEXT
  13. 130 PRINTTAB(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
  14. 140 PRINT"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  15. 150 POKE214,14:PRINT"[145][155]";
  16. 160 FORI=1TO5:READA$:GOSUB170:NEXT:GOTO180
  17. 170 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
  18. 180 F$="PAINT BY NUMBER":POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
  19. 190 DATA"[208][160][193][160][201][160][206][160][212] [160][160][194][160][217][160][160][160][206] [213][160][205][160][194][160][197] [210]","BY [202]ON [205]ATTSON"
  20. 200 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #73","[211]UBSCRIPTIONS 1-800-831-2694"
  21. 210 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"
  22.